APL\360 



IBM RESEARCH 



APL\360 



APL\360 is a conversational terminal system that has been operating 
within IBM since the Fall of 1966. Conceived as an experimental system 
for exploring certain aspects of computer science, its purpose required 
that it operate under a realistic load in an environment that was not arti- 
ficially constrained. To this end, the members of the IBM Research staff, 
and others, were encouraged to learn the APL language and use the A PL 
system. It was not anticipated that it would have the impact that it did: 

In twenty months of regularly scheduled operation, clocking 
well over 100,000 terminal-hours of use , the availability of 
APL\360 has materially changed the computing habits of the 
Research organization. 

Heavy users of batch processing have turned to APL for on- 
line development of their algorithms. 

Many laboratory data reduction chores formerly done by batch 
operation or desk calculator are now executed in a timely way 
at local terminals , using locally written, stored APL programs. 

Automatic collection of experimental data has , in many 
instances, been put on-line to APL. 

Routine correspondence and technical papers are prepared 
at terminals, with the help of text-handling programs written 
in APL. 

Many professional staff members who formerly were indifferent 
to, or actively resisted, the use of computers, have become 
steady users of the APL system. 



In addition to IBM Research personnel, use of the system was offered 
to other locations within the IBM Company, and it was also used experi- 
mentally in elementary and secondary schools and in universities. The 
general findings may be summarized as follows: 
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Although APL is easy for a beginner to learn, non- programmers 
(as well as programmers) often develop an interest in sophisticated 
use of the language, because of its analytical power and mathematical 
structure. 

The primitive array operations of APL make it a good language for 
scientific problems, text handling, and general data processing, 
because arrays are fundamental to all of these applications. 

The use of a powerful, readily accessible computational facility 
can materially change the quality and orientation of an academic 
course. 

Other things being equal, acceptance of time -sharing as a general 
mode of operation is strongly dependent upon its reliability and 
availability -- regularly scheduled hours are essential, and the more 
the better, including nights and weekends. 

System features . APL\360 is based upon APL, the language first defined 
by K. E. Iverson in A Programming Language (John Wiley, 1962). It is an 
interpretive time-sharing system that builds upon the array operations 
and structural integrity of APL to provide a running system with the follow- 
ing salient characteristics: 

Simple, uniform rules of syntax 

Use of common symbols for the ordinary arithmetic operations 

Free -form decimal input 

A large set of primitive operators 

Use of defined functions (programs) with the same facility and 
syntactic variety as primitive operators 

Automatic internal conversions of data representation, with full 
double -precision arithmetic (16 decimal digits) when required. 

Very fast response 

A library structure built around workspaces that hold both 
programs and data 
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An immediate -execution mode completely free of irrevelant 
keywords 

A comprehensive, integrated set of system commands for 
managing workspaces and libraries and for other essential 
functions 

Three levels of security; account numbers, workspaces, and 
programs can be individually locked against use or display 

Visual fidelity between hard copy and transmitted entries, which 
ensures reproducibility of results 

Succinct diagnostic reports 



Hardware and performance . The APL\360 system, comprising a time- 
sharing supervisor and an APL interpreter, runs in concert with a modified 
DOS Version 3, which appears the same as the standard EXDS release of the 
corresponding change level. During APL operation it requires an S/360 
machine with at least an H-level memory, a transmission control unit, and 
three disk drives. 

The particular configuration used in the original Research experiment 
is a Model 50 H with a 2703 Transmission Control Unit and a 2314 Direct 
Access Storage Facility. This system has 61 ports, and with about that 
number in use seems to be a well-balanced system with regard to relative 
usage of the central processor and input-output equipment. 

APL\360 has run (or is now running) experimentally on S/360 Model 40 
and Model 65 machines, and will run on all larger models. It will also run 
on an S/360 Model 44 equipped with the Trap and Emulate RPQ. It supports 
IBM 2741 and 2740-1 Communications Terminals, and 1050 Tele-processing 
Terminals with or without paper tape or punched-card equipment. 

Average reaction time of the Model 50 system (i. e. , time to respond 
to trivial requests from a terminal) peaks at about three-tenths of a second. 
With up to 40 ports in use, most such responses are essentially instantaneous; 
when fully loaded, there are occasional delays of as much as four seconds. 

The time for serving non-trivial requests naturally varies according to 
the extent to which the CPU must be shared during the computation. Because 
the primitive operations of APL are defined on arrays, relatively little 
interpretive overhead is needed for many large computations, and the actual 
CPU time used for a typical computation may run from 20 to 50 times that 
for efficient compiled code; but the overall efficiency is likely to be comparable. 
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if not superior, to batch processing in many applications if the usual 
compiling and loading times for batch work are taken into account. If 
debugging time is included, the advantage of interpretive APL becomes 
even greater. 

Applications. The workspace -centered organization of APLX360 makes it 
very convenient to assemble application packages, because a collection 
of programs and data in a workspace moves as a coherent unit whenever 
the workspace containing it is stored or activated. Some of the packages 
that have been developed on the experimental systems so far are: 

A comprehensive collection of functions for statistical 
calculations 

A coordinate geometry package that includes a position 
plotter 

A management information system for controlling the 
allocation of manufacturing resources 

A text -editing and composing facility 

An algebraic manipulator that simplifies polyomials and 
operates on matrices of algebraic expressions 

A bookkeeping system for balancing accounts 

Many collections of programs for numerical analysis of 
both real and complex functions 

The IBM Research Model 50 APL\360 system serves more than 700 
active users whose work ranges over many fields: from simple desk calculations 
to experimental investigations of semi-groups, from laboratory data reduction 
to theoretical physics, from the working out of small programming problems 
to the design and modelling of major systems, and from administering arithmetic 
drill to elementary -school children to use in graduate -level engineering courses. 

The accompanying appendix gives examples of operator -computer dialogue 
and the corresponding functions which would take place during sample terminal 
exercises. 



Appendix 
SAMPLE TERMINAL EXERCISES 



)1776 

010) 19.32„36 07/03/68 JANET 



A P L \ Z <o 



FUNDAMENTALS 

3x^ Entry automatically indented 

12 Response not indented 

X-^^y.^^ X is assigned value of 

the expression 

X 

12 _ Value of X typed out 

^^ 5 Negative sign for negative 

constants 



7 

1. 1+4 



X+Y 

l'+4F~2 Exponential form of constant 

P-f-1 2 3 4 Four-element vector 

P^P Functions apply element by element 



1 4 9 16 

P>^Y _ Scalar applies to all elements 

~5 10 15 "20 

Q<-' CATS' Character constant (4-element 



CATS 

10 

18 

16 
24 



Q vector) 

^Z-f-5 Multi-character names 

721-^5 

YZ+YZl 

3+4x5+6 Correction by backspace 

V and linefeed 

+ 5+6 

Z-f-3 
J<-4 

XxY+4 Executed from right to left 



A.l 



X Y 

SYNTAX ERROR 
X Y 

A 

XY 
VALUE ERROR 
XY 

A 



20o 4 

12 

24 



'4x3r5„l 

(4x3)r5ol 

4xr5„l 

X^x5 

X 

3 4 5 

lO 



Y-^S-X 

Y 
4 3 2 10 

X[Y 
4 3 3 4 5 

J<J 
110 

Ol 
3.141592654 

O^l 2 
3.141592654 1.570796327 

Z-f-4 5 9 

o;¥^180 
0.7853981634 1.570796327 

lOl 
0. 8418709848 

201 2 
0.5403023059 0.41614683f 

301 
1,557407725 

~301 
0,7853981634 

30~30i7 
12 3 4 5 6 7 

y-*-l 2 

407 
1.414213562 2.236067977 

OO^J 

0.8660254038 

701 2 
0.761594156 0.9640275801 
"70701 2 

1 2 



Entry of invalid expression 
Shows type of error committed 
Retypes invalid statement with 

caret where execution stopped 
Mult i -character name (not XxY) 

XY had not been assigned a value 

SCALAR FUNCTIONS 

Dyadic maxim\im 

Monadic ceiling 

Index generator fimction 



Empty vector 

prints as a blank line 
All scalar functions extend 

to vectors 



Relations produce 

logical (0 1) results 
Pixi 

Pi^l 2 



Conversion of X to radians 

Sin 1 

Cos 1 2 

Tan 1 

Arc tan 1 

Tan Arctan 12 3 4 5 6 7 

(1+J*2)*. 5 
(1-^7*2)*. 5 
Tanh 1 2 
Arctanh Tanh 1 2 
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[1] 

[2] 



10 
20 

[1] 
[2] 



VZ^Z F I 

Z^( (Z*2)+J*2)*„5 

V 

3 F 4 

e-^(p+i)F p-1 

itx3 P i+ 

B-<r-(,A>0)-A<0 
V 

(? "6 



DEFINED FUNCTIONS 

Header (2 args and result) 
Fiinction body 
Close of definition 
Execution of dyadic function F 



Use of F with expressions 
as arguments 



G is the signiOT function 
A and B are local variables 



Vff A 

Cl] P'<r{A>0)-A<0 

[2] V 

H~% 

P 
"l 

VALUE ERROR 

Y<-H "6 
A 

"JZ-^FAC N;I 
[1] Z^l 
[2] J^O 
[3] il:r-«-I+l 

[5] Z-^ZxI 
[6] »L1 
[73 V 

FAC 3 



Like G but has no explicit result 
P is a global variable 



H has no explicit result 

and hence produces a value 
error when used to right 
of assignment 

FAC is the factorial function 



LI becomes 3 at close of def 
Branch to (out) or to next 

Branch to LI (that is, 3) 



120 



FAC132 
FACL51 
FAC131 
FACL 51 
FACL3'] 

FAC[3l 



FAC 5 

TAFAC'^3 5 
X-^FAC 3 

1 

1 

2 

2 

3 

6 

4 
TAFAC-*-0 



Set trace on lines 3 and 5 of FAC 
Trace of FAC 



Reset trace control 
A. 3 



flECHANICS OF 
FUNCTION DEFINITION 

VC^-Af GCD N Greatest cominon divisor 

[1] G-<^N function based on the 

[2] M-^M\N Euclidean algorithm 

[3] -^kxMxO 

[4] [l]G-«-M Correction of line 1 

[2] L^IN-^G Resume with line 4 

[5] [ID] Display line 1 

[ 1 ] G^M 
[1] CD] Display entire GCD Function 

V G^M GCD N 
C 1 ] G^M 

[ 2 ] M^M I N 
[3] -^^xM^O 
[ 4 ] N<-G 

V Close of display, not close of def 
[5] ->l Enter line 5 

[6] V Close of definition 

3 6 GCD 14 Use of GCD 

^ 4 is GCD of 36 and 44 

'^GCD Reopen def (Use v and name only) 

[6] L^.llM,N Insert between 4 and 5 

[4,2] CD] Display entire function 

V G<-M GCD N 
[1] G-^M 

[ 2 ] M-^M I N 

[3] ->4xA/?:0 

C 4 ] N^G 

C4ol] M,N Fraction stays iintil close of def 

[5] ^1 

V End of display 

[6] V Close of definition 

36 GCD J+H 
8 35 Iterations printed by 

^ 8 line 5 (was line 4.1) 

4 Final result 

^GCDLDl^ Reopen, display, and close GCD 

V G-^M GCD N 
[1] G-^M 

[2] M<-M\N 

[3] -yi^xM^Q 

[4] N^G 

[5] M,N Line numbers have been 

[6] ->-l reassigned as integers 

V Close (Even nvimber of V's in all) 
"JGCD Reopen definition of GCD 

[7] [5] Delete line 5 by linefeed 

A 

V Close definition 
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[1] 

[2] 
[1] 

[1] 
[2] 

120 



VZ^ABC X 

Z^( 33x§+(i?x5)-6 

[1D9] 

Z^( 33xe+(i?x5)-6 

/ 1 /I 
Z^( 3xQ)+(Tx5)-6 
V 
F/4C 5 



)ERASE FAC 
FAC 5 
SYNTAX ERROR 
FAC 5 

A 

VZ^BIN N 
[1] L^:Z^(Z, 0)+0,Z 
[2] -^LA^N>pZV 

BIN 3 
VALUE ERROR 
BI.Nli:i LA:Z^(Z,0) + 0,Z 

A 

Z-f-1 

13 3 1 

7/1 L WE £'i?i?OJ? 

BliVCl] L1:Z-^(Z,0) + 0,Z 

A 

S/BINl „l]Z-f-lV 
)SI 
BINLll * 
->1 

14 6 4 1 
VSIiV[D]V 

V Z<-BIN N 
[1] Z-!-l 

[2] LA:Z^iZ,0)+0,Z 
[3] ^L>}xii7>pZ 
V 

Sb,BIN<-2 
Q-^BIN 3 

5IiV[2] 



A function to show line editing 

A line to be corrected 

Initiate edit of line 1 

Types line, stops ball under 9 

Slash deletes, digit inserts spaces 

iBall stops at first new 

space. Then enter ) T 
FAC still defined 

Erase function FAC 

Function FAC no longer exists 



An (erroneous) function for 
binomial coefficients 



Suspended execution 

Assign value to Z 

Resume execution 

Binomial coefficients of order 3 

Same error (local variable Z 

does not retain its value) 

Insert line to initialize Z 
Display state indicator 
Suspended on line 1 of BIN 
Resume execution (BIN now correct) 

Display revised function 
and close definition 



B INI 22 



Set stop on line 2 
Execute BIN 

Stop due to stop control 
Display current value of Z 

Resume execution 

Stop again on next iteration 
Resume 



BINL21 



Stop again 

Branch to (terminate) 
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INPUT AND OUTPUT 



[1] 
[2] 
[3] 
[43 
[5] 
[6] 
[7] 

2 
D: 



10 



WRONG 
D: 

6 7 

D: 



VMU LTD RILL N;Y;X 

Y 

X^U 

-^OxiX = 'S* 

-^iX = x/Y 

'WRONG, TRY AGAIN' 

->3V 

MULTDRILL 12 12 



37 

TRY AGAIN 



20 



[1] 
C2] 
[3] 
[4] 
[5] 



'5' 
VZ<-ENTERTEXT 

z^z,n 

^■2xD*pZ 
V 

Q^ENTERTEXT 
THIS IS ALL 
CHARACTER INPUT 

Q 
THIS IS ALL CHARACTER INPUT 

N-^S 

'NOTE: i' ;N;' IS ' iiN 
NOTE: \5 IS 1 2 3 4 5 



A multiplication drill 

pN random integers 

Print the random factors 

Keyboard input 

Stop if entry is the letter S 

Repeat if entry is correct product 

Prints if preceding branch fails 

Branch to 3 for retry 

Drill for pairs in range 1 to 12 

Indicates that keyboard entry 
is awaited 



Entry of letter S stops drill 
Example of character (□) input 
Make Z an empty vector 
D is the length of Z 
Append character keyboard entry 
Branch to 2 if length increased 
(i.e., entry was not empty) 

Keyboard 

entries 
Empty input to terminate 
Display Q 



Mixed output statement 



RECTANGULAR ARRAYS 





P<-2 3 5 7 




pP 


4 






T-^'OH MY' 




qt 


5 






P,P 


2 3 


5 7 2 




T,T 


OH MYOH MY 




T,P 


DOMAIN ERROR 




T,P 




A 



Dimension of P 
Character vector 

Catenation 



Characters cannot be catenated 
with numbers 
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M->^2 3p2 3 5 7 11 13 Reshape to produce a 2x3 matrix 

Display of an array of rank >i 

is preceded by a blank line 



M 



2 3 5 
7 11 13 

2 ^P^ A 2x4 matrix of characters 



A matrix reshaped to a vector 
Elements in row-major order 

Indexing (third element of P) 



OH M 
YOH 

6pM 
2 3 5 7 11 13 

,M 
2 3 5 7 11 13 

PC3] 
5 

^^13 5] A vector index 

2 5 11 

^^^^3] The first three elements of P 

2 3 5 

■^CpP] Last element of P 

13 

'^^^'2] Element in row 1, column 2 of M 

MLl;l Row 1 of M 

2 3 5 

^f^l 1^3 2] Rows 1 and 1, columns 3 2 

5 3 
5 3 

A^'ABCDEFGHIJKLMNOPQ' The alphabet to Q 



ALM2 

BCE 
GKM 

AlMil 1;3 2J] 



A matrix index produces 
a matrix result 



EC 
EC 



ii^[l;]-^15 3 12 Respecifying the first row of M 

M 



15 3 12 
7 11 13 



A.7 



e-^3 1 5 2 i| 6 

PLSJ 
5 2 11 3 7 13 

5 3 4 12 6 

PCS] 
5 

)ORIGIN 
WAS 1 

P[3] 
7 

PCO 1 2] 
2 3 5 

I 5 
1 2 3 U 

)ORIGIN 1 
fZ/J^ 

1 5 
12 3 4 5 



A permutation vector 
Permutation of P 

A new permutation 

Present index origin is 1 

Set index origin to 

First three elements of P 

Result of index generator 
begins at origin 



7-«-?3p9 

M^?3 3p9 

^^?3 3p9 

V 

1 

M 



FUNCTIONS ON ARRAYS 

Vector of 3 random integers (1-9) 
Random 3 by 3 matrix 
Random 3 by 3 matrix 



7 
5 
1 

1 
4 

9 



9 4 

8 1 

5 7 

N 

4 1 

7 6 

8 5 



Sum (element-by-element) 



8 13 

9 15 
10 13 



5 

7 

12 
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M{N 



Maximum 



7 9 4 

5 8 6 

9 8 7 

M<N 


1 
110 



10 



+ /V 

x/F 



+/[1]M 
13 22 12 

+ /C2]/Vf 

20 14 13 

+ /M 
20 14 13 

UM 
9 8 7 

Z^l„5 

+/(1 20J)*2 
1 

o/l 2,Z 
Oo 07057822453 

Y^O/0 2,X 

Y 
0„ 9974949866 

y = ioz 

1 



79 123 

46 84 
84 95 

111 
111 
2 3 2 

51 25 56 



81 
58 
66 



Comparison 

Slim- reduction of V 
Product- reduction 

Sum over first coordinate of M 

(down columns) 
Sum over second coordinate of M 

(over rows) 

Sum over last coordinate 
Maximum over last coordinate 

Sin squared plus Cos squared 

Sin Cos X 

( l-( COS Z)*2)*„ 5 

An identity 

Ordinary matrix (+oX inner) 
product 

An inner product 



+.X inner product with vector 
right argument 
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V 
2 17 

l^^ " ^ 1 5 Outer product (times) 

2 4 6 8 10 
12 3 4 5 
7 14 21 28 35 

^°^si9 Outer product 

011111111 

111111111 

000000111 

V° .y-M An outer product of rank 3 

14 18 8 

10 15 2 

2 10 14 



A blank line between planes 



7 9 4 
5 8 1 
15 7 

49 63 28 

35 56 7 

7 35 49 

MIXED FUNCTIONS 

A random 10 element vector 
(ranqe 1 to 5) 
14 2 

Ith element of result is number 
of occurences of the 
value I in Q 
2 IfijM Ordinary transpose of M 

7 5 1, 
9 8 5 
4 17 

'^M Ordinary transpose of M (monadic) 

7 5 1 
9 8 5 
4 17 







e^?iop 5 






Q 


1 


4 


3 4 5 4 2 
+ /Cl]eOo =i5 


2 


2 


14 1 
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T 



3 t+pi24 



An array of rank 3 



12 3 4 

5 6 7 8 

9 10 11 12 



13 

17 
21 



14 
18 
22 



15 
19 
23 



16 
20 

24 



1 
2 
3 
■4 



3 1 2>S>T 

13 
14 
15 
16 



Transpose of T 
of result 



(dimension 
is 3 4 2) 



5 
6 
7 



17 
18 
19 
2 



9 
10 

11 
12 

8 



1 

17 



21 

22 

23 

24 

1 l^M 

7 

1 1 2i57 

2 3 4 
18 19 20 
X^O ( , 1 5 ) T 6 
) DIGITS 4 



WAS 10 



Diagonal of M 

Diagonal section in first 
two coordinates of T 



Set number of output digits to 4 



(91 



3o<,oZ 





5. 

8, 

1, 

8, 

5, 



GOOffO 
000£'~1 
660E 1 
OOOffO 

esos"! 

OOOE 1 



1. 
8, 
5, 
1, 

■5, 

'8 



000£'0 

660£'"l 

OOOff 1 

744£'~16 

OOOE'l 

660£'"1 



0, 
5, 
1, 
5. 
'1, 
■5. 



OOOffO 

774E' 1 

732£'0 

734£'15 

732£'0 

774£'~1 



Table of sines, cosines, and 
tangents in intervals 
of 30 degrees 
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Q - 

l'4345 4 21'4-2 

3^Q Rotate to left by 3 places 

4542142143 

3(t)§ Rotate to right by 3 places 

14214345 4 2 

1 2ct)Cl]W Rotate columns by 

different amounts 

7 8 7 
5 5 4 
19 1 

~2<t)[2]M Rotation of rows all 

by 2 to right 

9 4 7 

8 15 
5 7 1 

1 2 3^M Rotation of rows 

9 4 7 
15 8 
15 7, 

ct>(Q Reversal of Q 

2 4 12 4 5 4 3 4 1 

<t>[l]M Reversal of M along 

first coordinate 

15 7. 

5 8 1 
7 9 4 

<t>M Reversal along last coordinate 

4 9 7 
18 5 
7 5 1 
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5 
1 
5 



7 

1 



7 
5 

1 



u 

10 

(~t/)/e 

3 H 4 2 

1 l/lllM 

9 4 
5 7 
1 1/M 

1+ 
1 
7 







( ,M>5)/ ,M 
7 9 8 7 

7-<-l 10 1 

V\i3 
10 2 3 

7\Af 

7 9 4 

5 8 1 

10 5 7 
7\M5C" 
/4 S C 

lOll 7 7 6 
1776 

1022 
1 7 



7 7 
7 6 
6 

3805 
1 3 
22 



811 7 7 6 

(4plO)Tl776 

7 6 

(3plO)Tl776 

6 

10 10T1776 

10T1776 

24 60 60X1 3 25 

24 60 6 0T3805 

25 

2ll 1 10 



Compression of Q by logical 

vector U 
Compression by not U 



Compression along first 
coordinate of M 



Compression along last 
coordinate 



,M is 794581157 

All elements of M which exceed 5 

Expansion of iota 3 

Expansion of rows of M 



Expansion of literal vector 

inserts spaces 
Base 10 value of vector 17 7 6 

Base 8 value of 1 7 7 6 

4 digit base 10 representation 

of number 1776 

3 digit base 10 representation 

of 1776 



Mixed base value of 1 3 25 

(time radix) 
Representation of number 3805 

in time radix 
Base 2 value 
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M 



7 9 4 
5 8 1 
15 7 

) ORIGIN 



WAS 1 
1 
1 

WAS 
2 3 

7 

7 3 



WC2;0] 

( ,M)L(pM)l2,0^ 

) ORIGIN 1 



P 

5 7 

Pi7 

Pi6 



11 13 



Pi4 5 6 7 

7 4 

e-t-5 1 3 2 1 

P^S 1 1 p e 

I^ 

2 4 3 5 1 

12 3 4 5 

A^' ABCDEFGHIJKLMNOPQ' 

A-^A^'RSTUVWXYZ^ 

A 
ABCDEFGHIJKLMNOPQRSTUVWXIZ 

Ax'C 
3 

J^Ai'CAT' 

J 

3 1 20 



Indexing of matrix in 0-origin. 

Note relation to indexing of 
ravel of M 

Restore 1-origin 



Index of 7 in vector P 
7 is 4th element of P 
6 does not occur in P, hence 
result is 1+pP 



A permutation vector 

R is the permutation inverse to Q 



A is the alphabet 

Rank of letter C in alphabet is 3 
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M<-3 5 p • THREESHORTWOEDS ' 
M 



A matrix of characters 



THREE 






SHORT 






WORDS 






J^AxM 






J 






2 8 18 


5 


5 


19 8 15 


18 


20 


23 15 18 


4 


19 


4[J] 






THREE 






SHORT 






WORDS 






3? 5 






5 12 






6?5 






DOMAIN ERROR 






6 ? 5 






A 






Z^8?8 






X 






4 6 7 2 5 


1 


8 3 


kx 






6 4 8 15 


2 


3 7 


xik^xi 






12 3 4 5 


6 


7 8 


^cn: 






8 7 6 5 4 


3 


2 1 


U-^Ae^NOW 


IS 


THE TIME' 


•Ol'Cl+y] 




00001001100011100011001000 


U/A 






EHIMNOSTW 






( i8)e3 7 


5 




10 1 





1 



Ranking of M produces a matrix 



Indexing by a matrix produces 
a matrix 



Random choice of 3 out of 5 
without replacement 



A random permutation vector 

Grading of X 

Arrange in ascending order 

Arrange in descending order 

Membership 
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